home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / States < prev    next >
Encoding:
Text File  |  1985-09-13  |  1.6 KB  |  44 lines  |  [TEXT/TRUE]
  1. ! State capital quiz.  ** Too big for 128k machines **
  2. !
  3. RANDOMIZE
  4. DIM state$(50,2)            ! 50 states, 2 items per state
  5.  
  6. FOR i = 1 to 50
  7.     READ state$(i,1)        ! Read state name
  8.     READ state$(i,2)        ! And capital
  9. NEXT i
  10.  
  11. FOR i = 1 TO 10             ! Ask 10 questions
  12.     LET n = Int(50*Rnd) + 1 ! Pick a number between 1 and 50
  13.     PRINT "The capital of "; state$(n,1); " is";
  14.     LINE INPUT capital$     ! Get the reply
  15.     IF Lcase$(capital$) = Lcase$(state$(n,2)) THEN    ! Correct?
  16.        PRINT "RIGHT!"
  17.     ELSE
  18.        PRINT "Nope, it's "; state$(n,2); "."
  19.     END IF
  20. NEXT i
  21.  
  22. DATA Alabama,Montgomery, Alaska, Juneau, Arizona,Phoenix
  23. DATA Arkansas,Little Rock, California,Sacramento
  24. DATA Colorado,Denver, Connecticut,Hartford, Delaware,Dover
  25. DATA Florida,Tallahassee, Georgia,Atlanta, Hawaii,Honolulu
  26. DATA Idaho,Boise, Illinois,Springfield, Indiana,Indianapolis 
  27. DATA Iowa,Des Moines, Kansas,Topeka, Kentucky,Frankfort 
  28. DATA Louisiana,Baton Rouge, Maine,Augusta, Maryland,Annapolis 
  29. DATA Massachusetts,Boston, Michigan,Lansing
  30. DATA Minnesota,St. Paul, Mississippi,Jackson
  31. DATA Missouri,Jefferson City, Montana,Helena
  32. DATA Nebraska,Lincoln, Nevada,Carson City
  33. DATA New Hampshire,Concord, New Jersey,Trenton
  34. DATA New Mexico,Santa Fe, New York,Albany
  35. DATA North Carolina,Raleigh, North Dakota,Bismarck
  36. DATA Ohio,Columbus, Oklahoma,Oklahoma City, Oregon,Salem
  37. DATA Pennsylvania,Harrisburg, Rhode Island,Providence
  38. DATA South Carolina,Columbia, South Dakota,Pierre
  39. DATA Tennessee,Nashville, Texas,Austin, Utah,Salt Lake City
  40. DATA Vermont,Montpelier, Virginia,Richmond, Washington,Olympia
  41. DATA West Virginia,Charleston, Wisconsin,Madison
  42. DATA Wyoming,Cheyenne
  43. END
  44.